program main
use params
use mini
implicit none
include 'mpif.h'

!mpif90 params.f90 mini.f90 gridearnings.f90 gridb.f90 stst.f90 calibrate.f90 main.f90 -o ./main
!mpirun -np 1 ./main
double precision :: temp

call MPI_INIT (ierr)
call MPI_COMM_SIZE (mpi_comm_world, nproc, ierr)
call MPI_COMM_RANK (mpi_comm_world, rank, ierr)

w=1

    call calibrate

    if ( rank .eq. 0 ) then    
    print*,'completed code'    
    end if
    
call MPI_FINALIZE(ierr)

end program main

